home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
program
/
tcqbsnip.zip
/
WINDWBOX.BAS
< prev
next >
Wrap
BASIC Source File
|
1997-06-20
|
1KB
|
66 lines
' WINDWBOX.BAS
' by Tika Carr
' October 2, 1993
'
' Purpose: Text based popup windows with shadows
DECLARE SUB WindowBox (ux!, uy!, lx!, ly!, bk!, fg!, sh!)
DECLARE SUB Title (fgd!, bgd!, tl$, x!, y!)
'Title Page
COLOR , 7: CLS
'Program Title
'Params: Foreground Color, Background Color, Title, x, y
CALL Title(15, 1, "Window Boxes Example", 20, 1)
'Window Box
'
'Params: Upper Left x, Upper Left y, Lower Right x, Lower Right y
' Background Color, Foreground Color, Shadow Color
CALL WindowBox(10, 5, 50, 16, 0, 10, 8)
'Press any key to continue program
COLOR 17, 7
LOCATE 25, 26: PRINT "Press Any Key To Continue.";
'Reset Colors and Pause to see display (Alpha test)
COLOR 7, 0
Pause$ = INPUT$(1)
SUB Title (fgd, bgd, tl$, x, y)
'Make Title
COLOR fgd, bgd: LOCATE y, x
PRINT "░░▒▒▓▓██ "; tl$; " ██▓▓▒▒░░"
END SUB
SUB WindowBox (ux, uy, lx, ly, bk, fg, sh)
'Information Box
'Top
COLOR fg, bk: LOCATE uy, ux
PRINT CHR$(201); STRING$(lx - 1, 205); CHR$(187); '╔═╗
'Middle (where text goes)
FOR bx = uy + 1 TO ly - 2
COLOR fg
LOCATE bx, ux
PRINT CHR$(186); SPACE$(lx - 1); CHR$(186); '║
COLOR sh
PRINT CHR$(219) 'Shadow: █
NEXT bx
'Bottom
COLOR fg
LOCATE ly - 1, ux
PRINT CHR$(200); STRING$(lx - 1, 205); CHR$(188); '╚═╝
'Shadow
COLOR sh
PRINT CHR$(219); '█
LOCATE ly, ux + 2
PRINT STRING$(lx, 219)
END SUB